home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 November / Macworld (1997-11).dmg / Updaters / PowerKey 3.3.3 Update / Extras / PowerKey & PageSentry / PageSentry Demo / Additional AppleScripts / SaveFile < prev    next >
Encoding:
Text File  |  1996-10-12  |  1.6 KB  |  40 lines  |  [TEXT/ToyS]
  1. -- PageSentry Notification Applet
  2. -- SaveFile
  3.  
  4. on «event SENTfail» sentryName given «class FURL»:failedURL, «class XTRA»:extra, «class STAT»:Status
  5.     
  6.     -- Create a variable containing all of the information we were sent plus appropriate labels
  7.     set myMessage to ¬
  8.         "=================================================================" & return & return & ¬
  9.         "Received Sentry Event" & return & return & ¬
  10.         "SentryName: " & sentryName & return & return & ¬
  11.         "Failed URL: " & failedURL & return & ¬
  12.         "Extra: " & extra & return & ¬
  13.         "Status: " & Status & return & return
  14.     
  15.     -- Create a pathname to the file we want to store the results in based on the root level of the statup disk
  16.     set theFileName to (path to startup disk as string) & "Sentry Results"
  17.     
  18.     -- Try to open the file, if we fail create it and then open it
  19.     try
  20.         set myFileRef to (open for access file theFileName with write permission)
  21.     on error
  22.         tell application "Finder" to make file at startup disk with properties ¬
  23.             {name:"Sentry Results"}
  24.         
  25.         set myFileRef to (open for access file theFileName with write permission)
  26.     end try
  27.     
  28.     -- Write out the information we have and close the file
  29.     try
  30.         set myErr to write myMessage to myFileRef starting at eof
  31.         close access myFileRef
  32.     on error errString number theErrorNumber
  33.         close access myFileRef
  34.     end try
  35.     
  36.     -- Tell the finder to open the file we just wrote to (This will most likely open in SimpleText)
  37.     -- If you don't want the Finder to automatically open the file, comment out this line
  38.     tell application "Finder" to open file "Sentry Results" of startup disk
  39.     
  40. end «event SENTfail»